Express Mail Label No. E L692235085US 



APPENDIX A 



Network-Level Procedures 



The notation LSU(updateJist) represents a link-state-update message that includes the 
updates (u, v, c ? sn) in the updatejist. 



// Called when an update message injnessage is received from nbr. 
Update_Topology_Table(i, nbr, injnessage, updatejist). 
Update_Parents(i) . 
For each node src in TTJ { 

Let updatejist(src) consist of all tuples (k, 1, c, sn) in updatejist such that 

k == src. 

If update Jist(src) is nonempty 



Send message LSU(update_list(src)) to children j(src), } } 



Update JTopologyJTable(i, nbr, injnessage, updatejist) { 
Set updatejist to empty list. 
For each ((u,v,c,sn) in injnessage) { 
If(pJ(u) = nbr) { 

If ((u,v) is in TTJ and sn > TTj(u,v).sn) { 
Add (u,v,c,sn) to updatejist. 



Set TTj(u,v).c = c. 
If (sn > snj(u)) Set snj(u) = sn.} 
If((u,v) is not in TTJ) { 

Add (u,v,c,sn) to TTJ. 

Add (u 5 v,c,sn) to updatejist. 

If (sn > snj(u)) Set snj(u) - sn.}}}} 



Link__Change(ij){ 

// Called when the cost of link (ij) changes. 
If (|TTJ(ij).c - cost(ij)|/TTJ(ij).c > epsilon) { 
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Process JJpdate(i ? nbr, in_message){ 
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Set TTJ(u,v).sn = sn. 
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Set TT_i(ij).c = cost(ij). 
Set TTJ(ij).sn = current time stamp SNJ. 
Set updatejist = {(i, j, TTJ(i, j).c ? TTJ(i, j).sn) 
Send message LSU(updateJist) to childrenj(i).}} 
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Link_Down(ij){ 

// Called when link (ij) goes down. 
Remove j from NJ. 
Set TTJ(i j).c = infinity. 



Set TT_i(i j).sn = current time stamp SN_i. 
UpdateJParents(i). 

For each (node src in TTJ) remove j from childrenj(src). 
Set updatejist = {(ij, infinity, TTj(ij).sn)}. 
Send message LSU(update_list) to children J(i).} 

LinkJJp(ij){ 

// Called when link (i j) comes up. 

Addj toNJL 

Set TTJ(i j)x = cost(i j). 

Set TTJ(i j).sn = current time stamp SN_i. 

UpdateJParents(i). 

Set updatejist = {(i, j, TT_i(ij).c, TTJ(ij).sn)}. 
Send message LSU(updateJist) to children_i(i).} 

Update JParents(i) { 

Compute_New_Parents(i) 
For each (node k in N_i){ 

Set cancel_srcjist(k), srcjist(k), and snjist(k) to empty.} 
For each (node src in TTJ such that src != i){ 
If (newjpj(src) != p_i(src)){ 
If(p_i(src) !=NULL){ 
Set k = p_i(src). 
Add src to cancel_srcjist(k).} 
Set p_i(src) = new_p_i(src). 
If (new_p_i(src) !-NULL){ 
Set k = new_p__i(src). 
Add src to srcjist(k). 
Add snj(src) to snjist(k).}}} 
For each (node k in N_i){ 

If (srcjist(k) is nonempty)! 

Send message NEW PARENT(srcJist(k), snjist(k)) to k.} 
If (cancel_src_Hst(k) is nonempty { 

Send message CANCEL PARENT(cancel_srcJist(k)) to k.}}} 

Compute JS[ew_Parents(i) { 

For each (node src in TTJ such that src != i){ 

Set new_pj(src) = NULL.} 
Compute min-hop paths using Dijkstra. 
For each (node src in TTJ such that src != i){ 

Set new_pj(src) equal to the neighbor of node i along the minimum-hop 

path from i to src.}} 

Process_New_Parent(i, nbr, srcjist, snjist){ 

// Called when node i receives a NEW PARENT(srcJist> snjist) message from 
nbr. 

Set updatejist to empty list. 
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For each (node src in srcjist) { 

Let snjist.src denote the sequence number corresponding to src in snjist 
Add nbr to children J(src). 

Set new_updates = {(k, 1, c, sn) in TT_i such that k = src and sn > 
snjist.src}. 

Add newjipdates to updatejist.} 
Send message LSU(updateJist) to nbr.} 

Process_Cancel_Parent(i ? nbr 5 src_list ){ 

// Called when node i receives a CANCEL PARENT(src Jist) message from nbr. 
For each (node src in srcjist) remove nbr from children J(src).} 

Send J>eriodic JJpdates(i) { 

Set updatejist to empty. 

For each (j in NJ such that TTJ(i j). c != infinity) { 

Set TTJ(i j).sn = current time stamp SN J. 

Add (ij ? TTJ(ij).c, TTJ(ij).sn) to updatejist. } 
Send message LSU(updateJist) to children J(i).} 

Compute JSFe\vjParents2(i) { 
S<-0; 

For each (v € TTJ) { 

Set d(v) = infinity; 

Set pred(v)- NULL; 

Set new_p J(v) = NULL; } 
d(i)<-0; 

While (there exists w e TTJ - S such that d(w) < infinity) { 
Set u = node w e TTJ - S that minimizes d(w); 
SetS = Su {u}; 

For each (v such that (u, v) € TTJ) { 

If (d(u) + 1 < d(v) or [d(u) + 1 = d(v) and newj? J(u) - p J(v)]) { 
Setd(v) = d(u) + 1; 
Set pred(v) = u; 
If(u = i) Set new__pj(v) = v; 
Else Set new_p J(v) = newjp J(u); } } } } 

Partial-Topology 1 

The function MarkjSpecial Jinks() is called whenever the parent p J(src) or the set of 
children childrenj(src) for any source src changes. The notation LSU(update Jist) represents a 
link-state-update message that includes the updates (u, v ? c, sn, sp) in the updatejist, where sp is 
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a single bit that indicates whether the link is "special", i.e., whether it should be broadcast to all 
nodes. 



Mark JSpecial JLinks(i) { 

For all (outgoing links (i j)) {Set TTJ(ij).sp = 0;} 
5 For all (nodes src != i){ 

if (P_J( src ) !~ NULL and pj(src) !== src){ 

Set TT_i(i, pj(src)).sp = 1 ;} //Link is special 
For all (nodes j in children J(src)){ 

Set TT_i(i j).sp = 1 ;} //Link is special. 

10 } 
} 

Update JTopologyJTable(i, nbr, injnessage, updatejist) { 
Set updatejist to empty list. 
For each ((u 5 v ? c,sn,sp) in injnessage) { 
m If(p_i(u) = nbr){ 

;;3 If ((u,v) is in TTJ and sn > TTJ(u,v).sn) { 

^ Set TTJ(u,v).sn = sn. 

Set TTJ(u 5 v).c = c. 
Set TTJ(u,v).sp = sp. 

Z$ (Only links marked as special are forwarded.) 

j ; U !f ( S P = 1) Add (u,v,c,sn 5 sp) to updatejist 

: £ If (sn > snj(u)) Set snj(u) = sn.} 

U If ((u,v) is not in TTJ) { 

ilJ Add (u,v,c,sn,sp) to TTJ. 

2-S If (sp = 1) Add (u,v,c,sn,sp) to updatejist. 

j;* If (sn > sn_i(u)) Set snj(u) - sn.} } } } 

u Process JJpdate(i, nbr, injnessage) { 

// Called when an update message injnessage is received from nbr. 
30 Update__Topology_Table(i, nbr, injnessage, updatejist). 

Update_Parents(i) . 
Mark_Special Jinks(i) . 
For each node src in TTJ { 

Let update Jist(src) consist of all tuples (k, 1, c, sn, sp) in updatejist such 
35 that k = src. 

If update Jist(src) is nonempty 

Send message LSU(updateJist(src)) to childrenj(src).}} 

Link_Change(i j) { 

// Called when the cost of link (ij) changes. 
40 If (|TT J(i j).c - cost(i j)|/TTJ(i,j).c > epsilon) { 

Set TTJ(i ,j).c = cost(i j). 
Set TTJ(i ,j).sn = current time stamp SNJ. 
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Set update Jist = {(i, j, TTJ(i, j).c, TT_i(i, j).sn 5 TTJ(ij).sp)}. 
Send message LSU(updateJist) to childrenj(i).}} 

LinkJ3own(ij){ 

// Called when link (i j) goes down. 

Remove j from N_i. 

Set TT_i(i j).c = infinity. 

Set TT_i(i j).sn = current time stamp SNJ. 

UpdateJParents(i). 

For each (node src in TT_i) remove j from children_i(src). 
Mark_Special_Links(i), 

Set update Jist = {(ij, infinity, TTJ(ij).sn, TTj(ij).sp)}. 
Send message LSU(updateJist) to childrenj(i).} 

Link_Up(ij){ 

// Called when link (i j) comes up. 

Addj toNJ. 

Set TT_i(ij).c = cost(ij). 

Set TT_i(i j).sn = current time stamp SN_i. 

Update_Parents(i). 

Mark__Special_Links(i). 

Set update Jist = {(i 9 j, TT_i(i j).c, TTJ(ij).sn, TTJ(ij),sp)}. 
Send message LSU(updateJist) to children J(i).} 

Update__Parents(i) { 

ComputeJSfew_Parents(i). 
For each (node k in N J) 

Set cancel_srcjist(k), srcjist(k), and snjist(k) to empty. 
For each (node src in TTJ such that src != i){ 
If (newjpj(src) !=pj(src)){ 
If(pJ(src) !=NULL){ 
Set k = p J(src). 
Add src to cancel_srcjist(k).} 
Set pj(src) = new_pj(src). 
If (new_pj(src) !=NULL){ 
Set k = new_pj(src). 
Add src to srcjist(k). 
Add snj(src) to snjist(k).}}} 
For each (node k in NJ){ 

If (srcjist(k) is nonempty) { 

Send message NEW PARENT(srcJist(k)> snjist(k)) to k.} 
If (cancel_srcjist(k) is nonempty { 

Send message CANCEL PARENT(cancel_srcJist(k)) to k.}}} 

Compute_Ne w_Parents(i) { 

For each (node src in TTJ such that src != i){ 
Set newjpj(src) = NULL.} 



Compute min-hop paths using Dijkstra. 

For each (node src in TTJ such that src != i){ 

Set ne\vj)_i(src) equal to the neighbor of node i along the minimum-hop 

path from i to src.}} 

Process JNFewJParent(i, nbr, srcjist, snjist){ 

//Called when node i receives a NEW PARENT(srcJist, snjist) message from 
nbr. 

Set update Jist to empty list. 
For each (node src in srcjist) { 

Let snjist.src denote the sequence number corresponding to src in snjist. 

Add nbr to children J(src). 

If (src != i) Set TT_i(i, nbr).sp = L //Link to nbr is special. 
If (src = i) Set new_updates = {(src 5 v, c, sn, sp) in TTJ such that 
sn> snjist.src}. 

If (src != i) Set new_updates - {(src, v, c, sn, sp) in TTJ such that 

sn > snjist.src and sp = 1 } . //Only special links are sent. 
Add new_updates to update Jist.} 
Send message LSU(updateJist) to nbr.} 

Process_Cancel_Parent(i ? nbr,src Jist ) { 

// Called when node i receives a CANCEL PARENT(srcJist) message from nbr. 
For each (node src in srcjist) remove nbr from children J(src). 
Mark__Special_Links(i). } 

Send J'eriodic JJpdates(i) { 

Set updatejist to empty. 

For each (j in NJ such that TTJ(i ,j).c != infinity) { 

Set TTJ(i j).sn = current time stamp SNJ. 

Add (i, j, TTJ(ij).c, TTJ(ij).sn, TTJ(ij).sp) to updatejist. } 
Send message LSU(updateJist) to children J(i).} 



Partial-Topology 2 



Update(i, k, in_message){ 

Update_Topology Table(i ? k, in_message); 

Lex_Dijkstra; // Uses lexicographic Dijkstra to compute Ti 

GenerateJJpdates(i, updatejist); 

if (k does not equal i and updatejist is non-empty) { 

Send_Updates_Children(i ? updatejist); 
UpdateJParents(i); 

} 

SendJUpdates_Children(i ? updatejist) { 

For each (node k e Ni) (out_message(k) <- 0;} 
For each (node src € TTJ s.t. src does not equal i){ 

update Jist(src) <r- {(k, I c) e updatejist s.t. k = src}; 



for each (node k € children_i(src)){ 

Add updatejist(src) to out_message(k);} 

For each (node k e Ni s.t. out_message(k) is non-empty) { 
Send the message out_message(k) to node k:} 

} 

Update JTopology_Table(i, k, in_message){ 
For each ((u, v, c) e in_message{ 

// Process only updates received from the parent p_i(u) 
if(p_i(u) = kork = i){ 

if ((u, v)«s TT_i or c! = TT_i(u, v).c{ 
TT_i(u, v) <- (u, v, c); 
Mark (u, v) as changed in TT_i;} 

} 

} 

if (inmessage is a P ARENTRESPONSE) { 

For each (u such that injnessage includes source u){ 
if (p_i(u) = k and pending_i(u) = 1){ 
pending_i(u) = 0; 

For each (v such that TT_i contains an entry for (u, v)){ 
if (in_message does not contain update for link (u, 
v)){ 

TT_i(u, v).c <-co; 
II indicates link should be deleted 
Mark (u, v) as changed in TT_i; 



} 



} 



} 

Process_Cancel_Parent(i, nbr, src_list){ 
For each (src e srcjist) 

children_i(src) <- children_i(src) - {nbr} ; 

Generate_Updates(i, update_list){ 
update_list <- 0; 

for each (entry (u, v, c, c') e TT_i){ 

if ((u, v) is in new Ti and ((u, v) is marked as changed or is not in old 
Ti)){ 

Add (u, v, c) to updatejist; 
Ti(u, v).c' <r- Ti(u, v).c; 
Ri^-Riu{(u,v)}; 
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else if ((u, v) is in Ri but not in new Ti and c > c'){ 
Add (u, v 5 oo) to updatejist; // delete update 
Ti(u, v).c' <- oo; 
Remove (u ? v) from Ri; 

} 

if (TT_i(u, v).c = oo) 

Remove (u, v) from TT_i; 

} 

} 

Update_Parents(i) { 

For each (node k e Ni){ 

cancel_src_list(k) <- 0; 
srcjist(k)<~0;} 
For each (node src <=TT_i such that src * i) { 

new_p J(src) <- next node on shortest path to src; 
if (newj>J(src) *pj(src)){ 

if (new_p J(src) * NULL) { 
k <r- p__i(src); 

cancel_srcjist(k) <- cancel__srcjist(k) u {src}; 

> 

if (new_p_i(src) * NULL){ 
k <— new_p_i(src); 
srcjist(k) <r- src_list(k) u {src}; 

} 

p_i(src) <r- new_p_i(src); 

} 

} 

For each (node k e Ni){ 
if(srcjist(k)*0) 

Send NEW_PARENT(srcJist(k)) to node k; 
if(cancel_srcjist(k) * 0) 

Send CANCEL J>ARENT(cancel_srcJist(k)) to node k; 

} 

} 

Process_New_Parent(i, nbr, srcjist){ 
updatejist 4-0; 
for each (node u e u_list) { 

children J(u) <- children J(u) u {nbr}; 

updates(u) <- {(u, v, c) e TT_i such that (u, v) e Ti}; 

updatejist <- updatejist u updates (u); 

} 

Send PARENT RESPONSE(srcJist, updatejist) to nbr;} 



